home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / UTIL.CITY.SHK / UTILITY.CITY / DOUBLE LOADER.bas < prev    next >
BASIC Source File  |  2000-01-01  |  1KB  |  13 lines
  1. 5  REM  <CTRL-M>==============<CTRL-M>DOUBLE LOADER<CTRL-M>BY BEAGLE BROS<CTRL-M>==============<CTRL-J><CTRL-J>
  2. 10  HOME : INVERSE : PRINT " DOUBLE LOADER ";: NORMAL : PRINT "  BY BEAGLE BROS.": PRINT 
  3. 15  PRINT "DOUBLE LOADER WILL CREATE PROGRAM X,    WHICH, WHEN EXEC'D, WILL RUN PROGRAM P, WHILE ANY OTHER PROGRAM STAYS IN MEMORY."
  4. 17  PRINT "  NOTE: YOU WILL NEED TO ADD POINTER-     CHANGE POKES TO THE END OF PROGRAM P.   SEE THE INSTRUCTION MANUAL, PAGE 43."
  5. 18  PRINT : PRINT : PRINT : PRINT "NAME OF PROGRAM P:": VTAB  PEEK(37) -2: INPUT "NAME OF PROGRAM X:";X$
  6. 25  VTAB 13: INPUT "NAME OF PROGRAM P:";P$: CALL  -958
  7. 28  IF P$ = X$  THEN  PRINT  CHR$(7): GOTO 10
  8. 30 D$ =  CHR$(4):Q$ =  CHR$(34): PRINT D$;"OPEN ";X$: PRINT D$;"DELETE ";X$: PRINT D$;"OPEN ";X$: PRINT D$;"WRITE ";X$
  9. 32  PRINT "NOMONICO"
  10. 35  PRINT "LOC=768:POKELOC,PEEK(103):POKELOC+1,PEEK(104):POKELOC+2,PEEK(175):POKELOC+3,PEEK(176):POKE103,PEEK(175):POKE104,PEEK(176):POKEPEEK(103)+PEEK(104)*256-1,0": PRINT "LOAD";P$: PRINT "RUN"
  11. 130  PRINT D$;"CLOSE"
  12. 150  PRINT : PRINT "DONE."
  13. 65535  REM   <CTRL-M>==============<CTRL-M>DOUBLE LOADER<CTRL-M>BY BEAGLE BROS<CTRL-M>==============<CTRL-J><CTRL-J>